home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis390.d64 / stufe 4 (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  4KB  |  128 lines
  1. 20 IFA=1THENGOTO50
  2. 30 IFA=2THENGOTO53
  3. 40 A=1:LOAD"ZUSATZ",8,1
  4. 50 A=2:LOAD"MUSIC2",8,1
  5. 53 GOSUB3000:REM"[141][145]53 CLR:RESTORE:WAIT5632,92,1
  6. 55 [159]1,8,2,"NAME":[132]1,N$:[160]1
  7. 60 [151]53280,0:[151]53281,0:[153]"LOAD":[158]828,1,197
  8. 70 [158]828,1:P[178]0:[153]"LOAD                                        WAIT";
  9. 80 [153]"PRINT                                        WAIT";
  10. 90 [153]"          (null) T U F E    * 4 *            WAIT";
  11. 100 [153]"PRINT                                        WAIT";
  12. 110 [153]"                                        WAIT"
  13. 120 [153]"OPEN       [ F1 ]CLOSE PEEKONUSSPIEL"
  14. 130 [153]"       [ F3 ]  LEFT$IGHSCORES"
  15. 140 [153]"OPEN       [ F5 ]CLOSE (null)UR (null)TUFE 5"
  16. 150 [153]"       [ F7 ]  ATNBBRUCH/VALNDMENUE"
  17. 160 [146]198,1:[161]A$
  18. 170 [139]A$[178][199](133)[167][137]320
  19. 180 [139]A$[178][199](134)[167][137]1150
  20. 190 [139]A$[178][199](135)[167][137]220
  21. 200 [139]A$[178][199](136)[167][137]250
  22. 210 [137]160
  23. 220 [151]33000,5:[153]"LOADSTOPLOAD";[199](34);"ZWISCHENSTUFE";[199](34);",8":[158]828,0
  24. 230 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
  25. 240 [144]
  26. 250 [153]"LOADOPEN(null)ILLST STR$U WIRKLICH INS VALNDMENUE ?"
  27. 260 [153]" ( MID$ / (null) )"
  28. 270 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167][137]270
  29. 280 [139]A$[178]"N"[167][137]50
  30. 285 [159]1,8,2,"NAME,S,A":[152]1,"LOSE":[160]1
  31. 290 [153]"LOADSTOPLOAD";[199](34);"ENDMENUE";[199](34);",8":[158]828,0
  32. 300 [153]"RUN":[151]631,19:[151]632,13:[151]633,13:[151]198,3
  33. 310 [144]
  34. 320 [153]"LOAD":[139]ZS[178]1[167][137]470
  35. 330 A$(1)[178]"LISTSTR$AS PEEKONUSSPIEL IN DER 4. (null)TUFE ERINNERT"
  36. 340 A$(2)[178]"PRINT#ENTFERNT AN DAS BERUEHMTE '(null)EMORY'-"
  37. 350 A$(3)[178]"POKE(null)PIEL. STR$U SIEHST GLEICH EINE (null)ADUNG"
  38. 360 A$(4)[178]"PRINT#VON (null)EICHEN AUF DEM PEEKILDSCHIRM. STR$U HAST"
  39. 370 A$(5)[178]"LISTNUN 1:30 (null)EIT, SOVIELE (null)EICHEN-"
  40. 380 A$(6)[178]"PAARE ZU FINDEN, WIE MOEGLICH. PEEKEWEGE"
  41. 390 A$(7)[178]"LISTMIT DEM MID$OYSTICK STR$EINEN LENURSOR UND"
  42. 400 A$(8)[178]"PRINT#WENN STR$U EIN (null)EICHENPAAR GEFUNDEN HAST,"
  43. 410 A$(9)[178]"DRUECKE BEI BEIDEN (null)EICHEN DEN ASCEUER-"
  44. 420 A$(10)[178]"KNOPF.               ASCIRE WAIT"
  45. 430 [129]N[178]1[164]10:[129]M[178]1[164][195](A$(N)):[153][200](A$(N),M);"ON"
  46. 440 [129]F[178]1[164]20:[130]F,M:[153]"":[130]N
  47. 450 ZS[178]1
  48. 460 [139][194](56320)[179][177]111[167][137]460
  49. 470 [153]"POKELOAD";[199](142):[139][194](56320)[179][177]127[167][137]470
  50. 480 A[178]1313:[129]N[178]1[164]10:[129]M[178]1[164]20
  51. 490 B[178][181]([187](0)[172]63)[170]1:[139]B[178]32[176]B[178]46[167][137]490
  52. 500 [151]A[170]M,B:[130]:A[178]A[170]40:[130]
  53. 510 [153]"                               WAIT"
  54. 520 [129]N[178]1[164]10:[153]"          WAIT WAIT":[130]N
  55. 530 [153]"                               WAIT"
  56. 540 [153]"SYS GESUCHTES ZEICHEN : "
  57. 550 TI$[178]"000000":C[178]55586:[151]C,1
  58. 560 [153]"CLR           ZEIT  ";[202](TI$,4,1);":";[202](TI$,5,2)
  59. 570 [139][197](TI$)[177]130[167][137]870
  60. 580 [139][194](56320)[178]126[167][137]640
  61. 590 [139][194](56320)[178]119[167][137]660
  62. 600 [139][194](56320)[178]125[167][137]680
  63. 610 [139][194](56320)[178]123[167][137]700
  64. 620 [139][194](56320)[178]111[167][137]740
  65. 630 [137]560
  66. 640 C[178]C[171]40:[139][194](C[171]54272)[178]160[167]C[178]C[170]40:[137]560
  67. 650 [151]C[170]40,11:[137]720
  68. 660 C[178]C[170]1:[139][194](C[171]54272)[178]160[167]C[178]C[171]1:[137]560
  69. 670 [151]C[171]1,11:[137]720
  70. 680 C[178]C[170]40:[139][194](C[171]54272)[178]160[167]C[178]C[171]40:[137]560
  71. 690 [151]C[171]40,11:[137]720
  72. 700 C[178]C[171]1:[139][194](C[171]54272)[178]160[167]C[178]C[170]1:[137]560
  73. 710 [151]C[170]1,11
  74. 720 [151]C,1
  75. 730 [137]560
  76. 740 [139][194](C[171]54272)[178]46[167][137]560
  77. 750 [139][194](C[171]54272)[178]81[167][151]C[171]54272,46:[137]560
  78. 760 [139]D[178]1[167][137]800
  79. 770 E(1)[178][194](C[171]54272):E(2)[178]C:D[178]1
  80. 780 [151]C[171]54272,81:[151]1205,E(1)
  81. 790 [137]560
  82. 800 F(1)[178][194](C[171]54272):F(2)[178]C:D[178]0
  83. 810 [139]E(1)[178]F(1)[167][137]850
  84. 820 [151]E(2)[171]54272,E(1):[151]F(2)[171]54272,F(1):[151]1205,32
  85. 830 [139][194](56320)[179][177]127[167][137]830
  86. 840 [137]560
  87. 850 P[178]P[170]10:[151]1205,32:[151]E(2)[171]54272,46:[151]F(2)[171]54272,46
  88. 860 [137]560
  89. 870 A[178]1154:B[178]1173:[129]N[178]1[164]20:[151]A,77:[151]B,78:A[178]A[170]41:B[178]B[170]39:[130]
  90. 880 [151]53281,6:[129]N[178]1[164]30:[130]
  91. 890 [151]53281,14:[129]N[178]1[164]30:[130]
  92. 900 [151]53281,3:[129]N[178]1[164]30:[130]
  93. 910 [151]53281,1:[129]N[178]1[164]30:[130]:[153]"LOAD"
  94. 920 [151]53281,3:[129]N[178]1[164]30:[130]
  95. 930 [151]53281,14:[129]N[178]1[164]30:[130]
  96. 940 [151]53281,6:[129]N[178]1[164]30:[130]
  97. 950 [151]53281,0
  98. 960 [129]N[178]1[164]500:[130]:[153][199](14)
  99. 970 [153]"LOADFOR(null)UNKTZAHL:";P
  100. 980 [153]"(null)AL SEHEN, OB DAS EIN (null)LATZ IN DIE"
  101. 990 [153]"LEFT$IGH-(null)CORE BRINGT..."
  102. 1000 [158]828,0:[159]1,8,2,"4-HIGH"
  103. 1010 [129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  104. 1020 [139]P[179]B(9)[167][137]1120
  105. 1030 [153]"MID$A, STR$U BIST IN DER LEFT$IGHSCORE, MOMENT..."
  106. 1040 [129]N[178]9[164]1[169][171]1
  107. 1050 [139]P[177]B(N)[167]B(N[170]1)[178]B(N):B$(N[170]1)[178]B$(N):B$(N)[178]N$:B(N)[178]P
  108. 1060 [130]
  109. 1070 [153]"LOADCLR   (null)TUFE 4 ... LEFT$IGH-(null)CORE"
  110. 1080 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  111. 1090 [159]1,8,15,"S:4-HIGH":[160]1
  112. 1100 [159]1,8,2,"4-HIGH,S,W"
  113. 1110 [129]N[178]1[164]9:[152]1,B$(N):[152]1,B(N):[130]
  114. 1120 [160]1:[137]70
  115. 1130 [153]"(null)EIN, LEIDER NICHT. (null)UTTU NOCH UEBEN !"
  116. 1140 [129]N[178]1[164]2000:[130]:[137]50
  117. 1150 [153]"LOADCLR   (null)TUFE 4 ... LEFT$IGH-(null)CORESYS":[158]828,0
  118. 1160 [159]1,8,2,"4-HIGH":[129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
  119. 1170 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
  120. 1180 [153]" (null)ETURN WAIT":[158]828,1
  121. 1190 [161]A$:[139]A$[179][177][199](13)[167][137]1190
  122. 1200 [137]70
  123. 3000 [159]1,8,2,"DATA":[143]"GOSUBON3000 POKE54781,12+C:FORN=1TO1024TO2023:NEXT
  124. 3010 INPUT#1,A$:REM"[141][145]3010 POKEN,N-1:NEXTN:A=PEEK(56320)
  125. 3020 [139]A$[179][177]"GUT"[167][158]64738:[143]"GOSUBON3020 IFD<>0ORPEEK(56320)=127THEND=C
  126. 3030 CLOSE1:RETURN:REM"[141][145]3030 IFPEEK(56392)=124THENGOTO3000
  127. 3040 [142]
  128.